Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
RAW_pivoted_data<-pivot_longer_XRF(RAW_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==0)%>%
rename(ID=id,
Site=STEE5R,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
RAW_pivoted_data<-pivot_longer_XRF(RAW_data)%>%
mutate(across(id:element,~as.factor(.x)))
RAW_pivoted_data<-pivot_longer_XRF(RAW_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==0)%>%
rename(ID=id,
Site=STEE5R,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
RAW_pivoted_data<-pivot_longer_XRF(RAW_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==0)%>%
rename(ID=id,
Site=STEE5R,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
sive_pivoted_data<-pivot_longer_XRF(sive_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
dried_pivoted_data<-pivot_longer_XRF(dried_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
vessle_pivoted_data<-pivot_longer_XRF(vessle_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ground_pivoted_data<-pivot_longer_XRF(ground_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ignited_pivoted_data<-pivot_longer_XRF(ignited_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ICP_pivoted_data<-ICP_data%>%relocate(site:prosesing,before = 1)%>%
select(!c(method.replicat,IDD,before,prosesing,ISD_Conc_P:ISD_Conc_Bi))%>%
pivot_longer_ICP()%>%
relocate("ID")%>%
mutate(across(ID:element,~as.factor(.x)))%>%
filter(sive.fraction==1)%>%
rename(Site=site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=sive.fraction,
sd=SD)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
vec<-c("ID","element","Site","Date","Sample_Location","Depth","Sample_Replicat","Sive_Fraction")
ALL_data<-ICP_pivoted_data%>%
left_join(RAW_pivoted_data,suffix = c("_ICP","_RAW"),by = vec)%>%
select(!device_error)%>%
left_join(sive_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_sive=mean,sd_sive=sd,rsd_sive=rsd)%>%
left_join(dried_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_dry=mean,sd_dry=sd,rsd_dry=rsd)%>%
left_join(vessle_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_vessel=mean,sd_vessel=sd,rsd_vessel=rsd)%>%
left_join(ground_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_ground=mean,sd_ground=sd,rsd_ground=rsd)%>%
left_join(ignited_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_ignite=mean,sd_ignite=sd,rsd_ignite=rsd)
View(ALL_data)
RAW_pivoted_data<-pivot_longer_XRF(RAW_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==0)%>%
rename(ID=id,
Site=STEE5R,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
Sive_Fraction=1
ID=paste(Site,
RAW_pivoted_data<-pivot_longer_XRF(RAW_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==0)%>%
rename(ID=id,
Site=STEE5R,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
Sive_Fraction=1,
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
sive_pivoted_data<-pivot_longer_XRF(sive_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
dried_pivoted_data<-pivot_longer_XRF(dried_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
vessle_pivoted_data<-pivot_longer_XRF(vessle_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ground_pivoted_data<-pivot_longer_XRF(ground_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ignited_pivoted_data<-pivot_longer_XRF(ignited_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ICP_pivoted_data<-ICP_data%>%relocate(site:prosesing,before = 1)%>%
select(!c(method.replicat,IDD,before,prosesing,ISD_Conc_P:ISD_Conc_Bi))%>%
pivot_longer_ICP()%>%
relocate("ID")%>%
mutate(across(ID:element,~as.factor(.x)))%>%
filter(sive.fraction==1)%>%
rename(Site=site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=sive.fraction,
sd=SD)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
vec<-c("ID","element","Site","Date","Sample_Location","Depth","Sample_Replicat","Sive_Fraction")
ALL_data<-ICP_pivoted_data%>%
left_join(RAW_pivoted_data,suffix = c("_ICP","_RAW"),by = vec)%>%
select(!device_error)%>%
left_join(sive_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_sive=mean,sd_sive=sd,rsd_sive=rsd)%>%
left_join(dried_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_dry=mean,sd_dry=sd,rsd_dry=rsd)%>%
left_join(vessle_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_vessel=mean,sd_vessel=sd,rsd_vessel=rsd)%>%
left_join(ground_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_ground=mean,sd_ground=sd,rsd_ground=rsd)%>%
left_join(ignited_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_ignite=mean,sd_ignite=sd,rsd_ignite=rsd)
RAW_pivoted_data<-pivot_longer_XRF(RAW_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==0)%>%
rename(ID=id,
Site=STEE5R,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
Sive_Fraction="1",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
sive_pivoted_data<-pivot_longer_XRF(sive_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
dried_pivoted_data<-pivot_longer_XRF(dried_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
vessle_pivoted_data<-pivot_longer_XRF(vessle_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ground_pivoted_data<-pivot_longer_XRF(ground_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ignited_pivoted_data<-pivot_longer_XRF(ignited_data)%>%
mutate(across(id:element,~as.factor(.x)))%>%
filter(Sive.fraction==1)%>%
rename(ID=id,
Site=Site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=Sive.fraction)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
ICP_pivoted_data<-ICP_data%>%relocate(site:prosesing,before = 1)%>%
select(!c(method.replicat,IDD,before,prosesing,ISD_Conc_P:ISD_Conc_Bi))%>%
pivot_longer_ICP()%>%
relocate("ID")%>%
mutate(across(ID:element,~as.factor(.x)))%>%
filter(sive.fraction==1)%>%
rename(Site=site,
Date=date,
Sample_Location=Sample.Location,
Depth=depth,
Sample_Replicat=sample.replicat,
Sive_Fraction=sive.fraction,
sd=SD)%>%
mutate(Date="5/22",
ID=paste(Site,
Date,
Sample_Location,
Depth,
Sample_Replicat,
Sive_Fraction,sep = "."))%>%
mutate(rsd=sd/mean*100)
vec<-c("ID","element","Site","Date","Sample_Location","Depth","Sample_Replicat","Sive_Fraction")
ALL_data<-ICP_pivoted_data%>%
left_join(RAW_pivoted_data,suffix = c("_ICP","_RAW"),by = vec)%>%
select(!device_error)%>%
left_join(sive_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_sive=mean,sd_sive=sd,rsd_sive=rsd)%>%
left_join(dried_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_dry=mean,sd_dry=sd,rsd_dry=rsd)%>%
left_join(vessle_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_vessel=mean,sd_vessel=sd,rsd_vessel=rsd)%>%
left_join(ground_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_ground=mean,sd_ground=sd,rsd_ground=rsd)%>%
left_join(ignited_pivoted_data,by = vec,)%>%
select(!device_error)%>%
rename(mean_ignite=mean,sd_ignite=sd,rsd_ignite=rsd)
View(ALL_data)
ALL_data%>%write.csv("combind_data.csv")
